home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 2 / BBS in a box - Trilogy II.iso / Files / Hyper / G / Get⁄Set Folder / Get⁄SetInvisible 1.1 / Get_SetInvisible 1.1 / card_2212.txt < prev    next >
Encoding:
Text File  |  1992-02-22  |  3.3 KB  |  112 lines
  1. -- card: 2212 from stack: in.1
  2. -- bmap block id: 4869
  3. -- flags: 0000
  4. -- background id: 2499
  5. -- name: 
  6.  
  7.  
  8. -- part 9 (field)
  9. -- low flags: 05
  10. -- high flags: 0000
  11. -- rect: left=1 top=86 right=309 bottom=511
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 4
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: 
  20.  
  21.  
  22. -- part 23 (button)
  23. -- low flags: 00
  24. -- high flags: 2000
  25. -- rect: left=473 top=51 right=84 bottom=511
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 15664 / 15664
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Home
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   visual dissolve to black
  37.   visual dissolve to white
  38.   visual dissolve to black
  39.   visual dissolve
  40.   go home
  41. end mouseUp
  42.  
  43.  
  44.  
  45. -- part 24 (button)
  46. -- low flags: 00
  47. -- high flags: A002
  48. -- rect: left=4 top=54 right=76 bottom=104
  49. -- title width / last selected line: 0
  50. -- icon id / first selected line: 0 / 0
  51. -- text alignment: 1
  52. -- font id: 0
  53. -- text size: 12
  54. -- style flags: 0
  55. -- line height: 16
  56. -- part name: GetInvisible
  57. ----- HyperTalk script -----
  58. on mouseUp
  59.   answer file "Choose a file to examine:"
  60.   put it into appname
  61.   if appname = "" then exit to hypercard
  62.   get GetInvisible(appname)
  63.   if the number of chars of it ‚⧠5 then
  64.     answer "The invisible flag of ‚Äú" & appname & "‚Äù is" && it & "."
  65.   else
  66.     answer it with "Sorry"
  67.   end if
  68. end mouseUp
  69.  
  70.  
  71.  
  72. -- part 25 (button)
  73. -- low flags: 00
  74. -- high flags: A002
  75. -- rect: left=108 top=54 right=76 bottom=208
  76. -- title width / last selected line: 0
  77. -- icon id / first selected line: 0 / 0
  78. -- text alignment: 1
  79. -- font id: 0
  80. -- text size: 12
  81. -- style flags: 0
  82. -- line height: 16
  83. -- part name: SetInvisible
  84. ----- HyperTalk script -----
  85. on mouseUp
  86.   answer file "Choose a file to work with:"
  87.   put it into appname
  88.   if appname = "" then exit to hypercard
  89.   if getInvisible(appname) then
  90.     answer "Change Invisible flag to what?" with "True" or "False"
  91.   else
  92.     answer "Change Invisible flag to what?" with "False" or "True"
  93.   end if
  94.   setInvisible appname,it
  95.   if the result ‚↠"" then answer the result with "Sorry"
  96. end mouseUp
  97.  
  98.  
  99.  
  100. -- part contents for card part 9
  101. ----- text -----
  102. GetInvisible takes one parameter, the pathname of the file you want to examine. SetInvisible takes two parameters, the pathname of the file and TRUE or FALSE indicating your choice of setting. Click on and/or examine the scripts of the buttons above to see how it works!
  103.  
  104. A small shareware fee of $5 is requested if you use this external in any ‚Äúin-house‚Äù, shareware or freeware products. The registration fee for development and prototyping of a future commercial product is $10.  The registration fee for unlimited commercial use in a SINGLE ‚Äúfor sale‚Äù product is $15.  The fee for unlimited commercial use with MULTIPLE products is $25.   These are life-time registrations.  You are entitled to all future shareware updates without further cost.
  105.  
  106. If you have questions or comments I can be reached through the following:
  107.  
  108. Jeffrey Donald Iverson                        CompuServe:      76675,1772
  109. 3841 Whispering Way Drive SE #101             AppleLink:       ALL.AMERICAN
  110. Grand Rapids MI  49546                        America Online:  ProX Jeff
  111. (616) 949-0346                                GEnie:           APOSTASY
  112.